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Author: Mr. Stan Zitello 
IBM Corporation 
2925 Euclid Avenue 
Cleveland 15, Ohio 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 
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DATING A CRITICAL PATH NETWORK ON THE IBM 1620 



Author: Mr. Stan Zitello 

IBM Corporation 
2925 Euclid Avenue 
Cleveland 15, Ohio 

Direct Inquiries to: Author 

A. Purpose/Description: The user of 1620 LESS or PERT obtains as output 
a schedule for starting and finishing jobs. This output is relative to the 
first day of the project. To make this schedule more meaningful to 
management, actual dates are often more useful. This program does 
such a conversion. 

B. Method: The user Inserts the Initial date of the project. The program 
then generates a calendar in core and uses this to convert relative days 
to actual dates. 

C. Restrictions and Range: Input In days or weeks, In decimal or integer 
form. A five, six, or seven-day working week. From none to fifty 
non-working holidays over the span of the project. Up to a four-year 
project on 20K system; twelve additional years for each 2GK thereafter. 

D. Accuracy : N/A 

E. Machine Configuration: Any 1620 card system. 

F. Program Requirements : N/A 

G. Source Language : SPS 

H. Program Execution Time: About one minute plus the time to punch 
one card for each activity. 

L Check-Out Status: The program has been used for six months on a 
production basis. All of the, options have been tested. 

J. Sample Problem Running Time: Approximately 10 minutes 

K. Comments: This program and Its documentation were written 
by an IBM employee. It was developed for a specific purpose and 
submitted for general distribution to Interested parties In the hope 
that It might prove helpful to other members of the data processing 
community. The program and Its documentation are essentially 
in the author's original form. TBM serves as the distribution agency 
in supplying this program. Questions concerning the use of the 
program should be directed to the author's attention. 
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DATING A CRITICAL PATH NETWORK ON I EM 1620 

PURPOSE : Part of the output from 1620 LESS (10. 3.OO3) or PERT (10 3 006) 
gives such things as earliest start and earliest finish. These numbers are 
relative to day zero — the beginning node of the network. The user of these 
programs may wish to know the actual dates associated with these numbers- 
The purpose of this program is to take the output from either program and con- 
vert relative days (or weeks) to actual dates. 
COMPUTER NEEDED ; Any 1620 card system. 

INPUT: Pinal output cards from LESS or PERT and the beginning date of the Job. 
OUTPUT ; Same as input cards except actual dates in fields ES, EF, LS, LF, 
and, for PERT, TS-TE. Because these are five-column fields a date such as 
October 12, 1963 is punched as IOI23. 

RANGE OP PROGRAM : Holidays depend on user. From none to fifty may be used. 

Rormal size of calendar in core is one thousand working days. This may 
be increased up to about two thousand, or decreased to anything useful. 

Input can be in working days or weeks. Input can be in decimal form. 
When running in days the decimal part is ignored. When running In weeks the 
decimal part is used. 

Either a five, six, or seven-day working week may be called for. 
METHOD : The user types in the beginning date and day of week that date 
occur*. You then enter the number of working days per week. Control then 
passes to fhe calendar generation phase. 

In this section the first date is placed as entry zero in the calendar. 
The program then adds one to the date, places this as day one in the calendar 
and keeps adding till it reaches the end of the calendar area. Before it adds 
a date to the calendar it checks to see if this is a holiday, a Saturday or 
Sunday, the end of a month, February in a leap year, or the end of the year. 

1 
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A calendar thus generated has all the dates which are not holidays, not Satur- 
days and not Sundays. This is probably the normal situation. For a seven-day 
working week with no holidays the calendar in core would be just like a normal 
every- day calendar. 

The program then asks for the number of decimals in the input and whether 
this is PERT or LESS input in days or weeks. 

The input is then read alphamerically- Each pertinent field is stored, 
then extended to the address of the date that pertains. The dates are put in 
the card fields and the card is punched. 

TIMING: Cards are read and punched at punch speed. Time is used to generate 
the calendar in memory. For one thousand working days (about four years) with 
twenty- four holidays the time is about fifty seconds. 
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mnWDP THE PROGRAM 
1. Clear core to zeroes. 

ln»t*at Stop, Reaet, Insert, type 31OOOO3OOOO2, wait, Instant Stop, Reset. 
2- Load Program . 

Put cards In reader, Load, Reader Start for last cards. 
3. Program asks for beginning date . 

Type this in as shown in instruction. 

BOTE: Whenever you enter something through the typewriter Switch k 

can be used to get around typing errors. Put Switch k on, Release 
.and Start, program will retype instruction, turn Switch k off. 
Furthermore — the program mates some checks on the input and will 
come back again for data- If this happens, reread the instruction 
on the form of the input. 

k. Program asks for day of the week - 

Type in day of the week upon which the beginning date occurs. 

Sxaaple : Monday 

BOTE: PERT and LESS consider the first day as day zero, as does this 
program. The veteran user of critical path gets accustomed to 
this. Some one may wish to call the first day day one. This 
can be done here by putting in a beginning date one day before 
the actual date. The day of the week might then have to be Sun- 
day even though Sunday is not a working day. The program will 
handle this. 

5. Days per Week . 

The program will accept a five, six, or seven-day working week. 

6 Computing - 

After Release and Start the program goes into the generation of a calen- 
dar. This will take about 50 seconds. 
7. Enter number of decimals - 

If input is in integer form type 00 One or two decimal places by also 

be used. 



8. Switch settings. 

Switch One on for PERT cards; off for LESS cards. 

Switch Two on for input that is weeks; off for input that is days. 

Program halts here. 

9. Load cards . 

Put cards in reader and punch, push start buttons. 

10. - Switches . 

If any switches are on the typewriter will log this. 

11. End of Job . 

This occurs when the last card indicator comes on. Pressing computer 
Start at this point will restart the entire program. However It is possi- 
ble to go back to step 7- If the need occurs to bypass the calendar generation 
phase and process another set of data pertinent to the calendar then in core, 
you can then put Switch 3 on and press computer Start. 

ERROR MESSAGE : "Calendar Exceeded" 

With a one thousand day calendar in core any input greater than 999 will 
jive this message. If the calendar size is changed so will the condition 
-hen this message would be typed. To continue processing push Start. 
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OPTIONS 

Calendar Size . 

This program will generate a calendar in core with 13995-lUOOO as the 
location of the first date. The calendar extends to the end of 20K- Each 
date occupies six positions. Six thousand divided by six gives one thousand 
working days . 

On card 65 of the condensed deck is the constant "CALSIZ" which is nor- 
mally lU000 3 the units position of the first date. This may be altered in 
the deck to any number from 080OO up to, say 19000. 
Punching out a Job calendar . 

There is a small routine which will punch out the calendar. Each card 
punched has the date and the day number. If allowed to go to completion this 
routine would normally punch out a thousand cards, so it probably has limited 
use. The routine starts at location 0591*8 (OUT- 12) — a branch to this address 
anytime after a calendar has been generated will start the punching. 
Checking holidays . 

The dates of up to fifty holidays may be entered and considered non-work- 
ing days • Cards 87-91 of the condensed deck contain the holidays. As the deck 
stands there are 2k holidays being checked: New Years Day, Christmas, July kth, 
Memorial Day, Labor Day, and Thanksgiving — k years of each. Note that these 
are in nc particular order. Each date scans the 2k entries for a match. You 
may put in any holidays desired- Manually change cards 87 to as far as you need. 

There is another constant (NUMHOL) which should be changed at this time. 
In columns one and two of card 65 of the condensed deck is 2k. This tells the 
program to scan Just the first 2k entries in the table. Change this t: the 
number desired. To ignore holidays completely set NUMHOL at 01 and ;v first 
entry in card 87 000000. 
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CONSTANT DICTIONARY 



NUMHOL 



CALSIZ 



CTR 

WECTR 

LOVE 

MULT 
HOLD 



DC 2,2k. Number of holidays to check in the holiday table. This 
can be manually changed to any number from one to fifty in either 
the source or object deck. 

DC 5,lU000. This is the units position of first date- Normal 
calendar is put in 13995-19999- Manually changing this constant 
in the source deck or object deck will change the position of the 
first date. Calendar will still go to 19999- Five instructions 
are set up with this constant during initialization- 
DC 8,0. This is where the date is worked on in the generation phase. 
It uses two digits each for: Maximum days in month; the month; the 
date; and the year. 



DC 2,0. Keeps track of day of the' week. 
Wednesday 3, etc - 



Monday is 1, Tuesday 2, 



DC 2,0. This is a signal to the program that a month ended on a 
Saturday. 

DC 2,0. This holds the number of decimals in the input data- 
It is used to adjust the addresses (JA-JE) which access the in- 
put data. 

DC 2,0. Holds numbers whicn are used to develop address of an 
entry in the month table - 

DC 6,0. An area used as a buffer from the calendar to the output 
area. Note that for generality the calendar has six-position dates 
though the program punches only five of these. The tens position 
of the year is removed in HOLD. 



AA-AE : Hold ES, EF, LS, LF, TS-TE. 

A : Stripped input is put here first. 

CALOUT : DS 80. Output area for the option of punching out the calendar. 



FILL : DAC 20 zeroes. Sets up output areas. 



BLK : DAC 27 blanks. Becomes part of output area for special completion 
date card from LESS. 

CHECK : DAS 20 . All data coming in from typewriter is put here first to 
protect areas from serious typing errors. 

D0RG10O1 : This is the table of months . These entries contain maximum days 
in the month, the number of the month, and two zeroes 

DORG1995: This is the holiday table. It contains the 2k holidays normally 
checked, in the form month-date-year. Below these are 26 zero 
entries which may be used. The program always starts at the first 
entry and stops after NUMHOL have been checked. This table cannot 
be relocated. 
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CHICK 


OAS 


202 










03460 




DORO 


01001Z 


01006 


00 


00006 


00000 


03470 




DC 


6*310100*1006Z 


01012 


00 


00006 


00000 


03480 




DC 


6*280200*10122 


01018 


00 


00006 


00000 


03490 




DC 


6*310300*10182 


01024 


00 


00006 


00000 


03500 




DC 


6.300400*10242 


01030 


00 


00006 


00000 


03510 




DC • 


6*310500*10302 



t 



01036 


00 


00006 


00000 


03520 


DC 


6,300600*10362 




01042 


00 


00006 


00000 


03530 


OC 


6i310700fl0422 




01046 


00 


00006 


00000 


03540 


DC 


6*310600*10492 . 




01054 


00 


00006 


00000 


03550 


DC 


6.300900tl0542 




01060 


00 


00006 


00000 


03560 


DC 


6*311000*10602 




01066 


00 


00006 


00000 


03570 


DC 


6*301100*10661 




01072 


00 


00006 


00000 


03580 


DC 


6*311200*10722 




01995 








03590 


DORS 


019952 




02000 


00 


00006 


00000 


03600 


DC 


6*0101632 




02006 


oo 


00006 


00000 


03610 


DC 


6*0101642 




02012 


00 


00006 


00000 


03620 


DC 


6*0101652 




02018 


00 


00006 


00000 


03630 


DC 


6»010%£6.£. 




02024 


00 


00006 


00000 


03640 


DC 


6*1225622"" ~ 




02C30 


oo 


00006 


00000 


03650 


DC 


6*1225632 




02036 


00 


00006 


00000 


03660 


DC 


6tl22564Z 




02042 


00 


00006 


00000 


03670 


DC 


6*1225652 




02048 


00 


00006 


00000 


03680 


DC 


6*0704622 




02054 


00 


00006 


00000 


03690 


DC 


6.070463Z 




02060 


00 


00006 


00000 


03700 


DC 


6 .0704642 




02066 


00 


00006 


00000 


03710 


DC 


6*0704652 




02072 


00 


00006 


00000 


03720 


DC 


6.053062Z 




02078 


00 


00006 


00000 


03730 


DC 


6*0530632 




02084 


00 


00006 


00000 


03740 


DC 


6.0530642 




02090 


00 


00006 


00000 


03750 


OC 


6.053065Z 




02096 


00 


00006 


00000 


03760 


DC 


6.090362Z 




02102 


00 


00006 


00000 


03770 


DC 


6.0902632 




02108 


00 


00006 


00000 


03780 


DC 


6.090964Z 




02114 


00 


00006 


00000 


03790 


DC 


6*0908652 




02120 


00 


00006 


00000 


03800 


DC 


6.112262Z 




02126 


00 


00006 


00000 


03810 


DC 


6.1121632 




02132 


00 


00006 


00000 


03820 


DC 


6*1126642 




02138 


00 


00006 


00000 


03630 


DC 


6.112565Z 




02144 


00 


00006 


00000 


03640 


DC 


6.0Z 




02150 


00 


00006 


00000 


03850 


DC 


6.0Z 




02156 


00 


00006 


00000 


03860 


DC 


6.0Z 




02162 


00 


00006 


00000 


03870 


DC 


6.0Z 




02168 


00 


00006 


00000 


03880 


DC 


6.02 




02174 


00 


00006 


00000 


03890 


DC 


6.0Z 




02180 


00 


00006 


00000 


03900 


DC 


6.0Z 




02186 


00 


00006 


00000 


03910 


DC 


6.0Z 


■■ ~: •• • 


02192 


00 


00006 


00000 


03920 


DC 


6.0Z 




02198 


00 


00006 


00000 


03930 


DC 


6*02 




0220* 


00 


00006 


00000 


03940 


DC 


6*02 " ■ 


* ■ ■ - ■ 


02210 


00 


00006 


ooooo 


03950 


DC 


6*02 




02216 


00 


00006 


00000 


03960 


DC 


6*02 




02222 


00 


00006 


ooooo 


03970 


DC 


6.02 




02228 


00 


00006 


ooooo 


03980 


DC 


6*02 




02234 


00 


00006 


ooooo 


03990 


DC 


6.02 




' 62240 


00" 


00006 


ooooo 


04000 


DC" " 


6*02 




02246 


00 


00006 


ooooo 


04010 


DC 


6*02 




02252 


00 


00006 00000 04020 


DC. 


6*02 




02258 


00 


00006 


ooooo 


04030 


DC 


6*02 




02264 


00 00006 


ooooo 


04040 


DC 


6.02 




07370 po npQnfr 


ooooo 


04050 


DC- 






02276 


00 


00006 


ooooo 


04060 


DC 


6.02 




02282 


00 


00006 


ooooo 


04070 


DC 


6*02 




02288 


00 


00006 


ooooo 


04000 


DC 


&.0Z ..... 




02294 


00 


00006 


ooooo 


04090 


DC 


6*02 




02300 








04100 


DEND 


23002 





3611000001004911000:$ 

5710001OO5C0 
1510159OOOO* 
3AQQQQQQQ1Q2 



A-l 



391000100100 
49110QQOOOOQri 



SAMPLE PROBLEM INPUT 



0010020010 
0020200001 
0020030002 
0030040001 
QQ4QQ800%5 



LEAD. TJ ME 

ASSEMBLE CREWS 

MEASURE-SKETCH 

DEVELOP MATERIAL LIST 
PROC URF PIPF 



40- 



10 11 

-10 U- 



40- 



12 13 

43 Sfi- 



11 12 1 

40 12 *- 



12 13 * 

43 58 



OOcO 110001 
Q 110.1 2 1 
0120140001 
QJAQ 150001 
001005002c 
QQ40Q5OOOO- 



PLACE VALVES 

FIT. UP 

PRESSURE TEST 

CLE AN' UP 

TIME AVAILABLE 
. DUMMY 



58 59 

_55___ 60- 
60 61 
-64 6-5- 



58 59 * 

.62 63 3- 



28 

43 «- 



63 64 3 
-64 65 ±- 



16 44 16 

-44 Mi 3-1 1- 



0050060001 
0060090OO6 
0090100006 
0100110002 
011013000% 
0130140001 



DEACTIVATE LINE 
REMOVE^ OLD—E-IP-E- 
PLACE MEW PIPE 

WELD- PI P£ 

.INSULATE 
REM O VE SCAFFO L D 



28 29 
29 — 35 
48 54 

-54 — -56- 



44 45 16 

-45 — 51 16 1- 



59 63 

-63 64- 



51 57 3 

-5? 59 3- 



59 63 * 

-43 64 *- 



0120130000 DUMMY 
jOQJ 015OQ6O PROMISED- CGUP4ET4QN — 

0040060002 ERECT SCAFFOLD 
_0Q6fl0£OOOO- DUMMY 

0040070030 PROCURE PIPE 

0070090005 PREFAB SECTIONS 



60 60 

-60- 



13 15 

-29 29- 



63 63 3 

-5 65 5- 



13 43 

-43 48- 



43 45 30 1 

-58 58 29 2- 



16;. 46 3 
'16 5 1 3- 



0200030000 DUMMY 
-= PROJECI-XOSI 



11 11 

PROJECT COMPL ETION— 



12 12 1 

65- 



THT q T q nmvrrp meat t.bss 



18 



APPENDIX "A" SAMPLE PROBLEM 



Page A-l shows a listing of the input cards. The6e are the output 
cards from LESS. These cards are fed into the pro gran which produces 
cards as output. A listing of these output cards is shown on page A-2. 
Botice that all fields are unchanged except those which refer to rela- 
tive days-- these fields contain actual dates. 

The top of page A-2 showB the 1620 log obtained when running this data. 
June .1, 1962 was the beginning date of the project and this date was a 
Friday. The Input was in integer form (number of decimals was 00 ) and the 
number of working days per week was five. Neither console switch was on 
so input was considered from LESS and in days. 

Page A- 3 shows the results using the same data hut changing some of 
the conditions. Working week was changed to six days. The input was considered 
as in weeks with one decimal place. (Changing the co n d i tions this way is 
not a practical situation—We show this merely to illustrate the different 
options in the program.) 
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SAMPLE LOG AHD OUTPUT TOPER DIFFERENT CONDITIONS 

DAY TO DATE CONVERSION TO RESTART TYPE 4902300 

—TYPE BEGINNING f)ATF OF J0R-M0NTH,DATE AND YEAR : 

EXAHPLE-JAN 15,1962 IS 011562 

060162K _ , 

TYPE IN DAY OF WEEK THAT DATE OCCURS 

FRIDAYS .._ = 

ENTER DAYS PER WEEK OX 

Qfts : : 

ENTER NO. OF DECIMALS OX 

.015 

SW 1 ON FOR PERT SW2 ON FOR INPUT IN WEEKS 

READY CARDS IN REAPER , PUSH- START : _ 

SWI T CH TW O IS ON 

END OF JOB 



0010020010 
0020200001 
0020030002 
003001+0001 
0040080045 
JlQEflllflOfLL 



LEAD TIME 
-ASSEMBLE-CRSWS- 



MEASURE-SKETCH 
-DEVELOP—MATER I AL LIST 
PROCURE PIPE 
-Pt.ACF VALVES 



06012060820601206082 * 
O6O 8 2O608206 O 82O6O92 1- 



06082060920608206092 
060920 60 92 609206 92 



06092071 220609207 1 22 
0712207132 7122 7132 



011012 1 

Q12Q14QQ0L 

0140150001 

0010050023 

0040050000 

QQSQQ6QQQ1 



FIT UP 

--PRESSURE— TEST- . 

CLEAN UP 
_LLM£.A_A.l 

DUMMY 

DFACTI VATF I INF 



07132071420716207162 
07 1 4 207 1 4 2 07 1 62 7 172 



07172071820717207182 

10206422O7C 
06092060920702207022 31 
6 202062120702207032 U>- 



0060090006 
QQ90 100006 
0100110002 
0110130004 
0130140001 
0120130000 



REMOVE OLD PIPE 
PLACE- MFW PIPE 
WELD PIPE 
INSULATE 



REMOVE SCAFFOLD 
nilMMY 



06212062620703207072 16 
0705 20 71 02070 7207122 3- 



07102071120712207132 3 
0713 20 71620713207162 *- 



071 6207 17207 16207 172 
O7142071420716207162 3- 



0010150060 
,0040060002 
00600&0000 
0040070Q3Q 
0070090005 
Q2PQQ300QQ 



PROMISED COMPLETION 
ERECT SCAFFOI D _ 



DUMMY 

PROCURE- PI PF 



PREFAB SECTIONS 
DUMMY 



0601 2071 420605207 182 5 
6 920 6 122 630207032 30- 



06212062120712207122 29 
06 92063 2 6 12207032 3- 



O63020705207032O7072 3 
060 8 20 6 8 206 92 06 092 1- 



- PROJECT COST 

ERflJ-ECT-COMPI FT I ON 



PROJECT COMPLETION 
-65 07-182 



65 



JUL 



A-2 



SAMPLE LOO AND OUTPUT PRINT OUT 
DAY TO DATE CONVERSION TO RFSTflRT TYPF hgn??nn 
TYPE BEGINNING DATE OF JOB-MONTH, DATE AND YEAR 

-JIXJMP-LJL--JAN 15,1962 IS 01156? 

060162R5 

TYPE IN PAY OF WEE K THAT DATF OCCURS 
FRIDAYRS 

ENTER DAYS PER WEEK OX 

OS'S 

ENTER NO. OF DECIMALS O X 

OCRS 

SW \m FOR PERT SW2 ON-FQR I NPUJ_ _LM J-LE-S. 

READY CARDS IN READER, PUSH START 



END OF JOB 



0010020010 
0Q2Q200QQ1 



LEAD TIME 
ASSFM3I F CRFV/S 



06012061520601206152 
6 1520 6 I 3 2061S2061S2 



0020030002 
-003-004000 1_ 
0040020045 
QQS01 10001- 



MEASURE-SKETCH 
DFVFI OP -MATERIAL LIST- 



011012 1 
0120140001 



PROCURE PIPE 
PI ACF VALVES 



FIT UP 

PRFSStlRF. TEST 



06152061S2O6152061S2 
-£64 92 620206 1-9206202- 



0620202232062020G232 
£2 320S2^2 C2320 £2-42 



0824208272082920S302 
OS272082 S 20£3O20S3 1 2 



0140150001 
001005 0028 ' 
0040050000 
OOS0060 001 
0060090006 
Q09Q1QQQQ6 



CLEAN UP 
XtilE-AVAli ABLE 



DUMMY 
■ DEACTI VATF I INF 



REMOVE OLD PIPE 
PI ACF NFW PIPE 



083 1 209042083 1 209042 
6 01 20712206252 S032 



06202062020803208032 
071 22O7I3208O320S062 



07 1 320723208 06208 1 42 
nfln920ftl7208 14208222 



* 



31 

46- 



16 

-3- 



0100110002 
011013000 4 
0130140001 
0120130000- 



00 101 50060 
0040060002 



WELD PIPE 

_INS.UJ.AIE 

REMOVE SCAFFOLD 
DUMMY 



PROMISED COMPLETION 
FRFCT SCAFFOLD 



081 72082120822208242 
-O82420S-3O20 S2 4 208302 



0C3O2OS3f2083O2083 1 2 
-OS 272O S 272083 O 2 S302 



06012082720608209042 5 

06 2 02062220802208062 30- 

07132071320823203232 29 

—X»620208022fl4252«8©72 3- 

0€0220S032080720£l42 3 
£646 2 06 182 6 1 9206 1 92 i- 



0060080000 



0070090005 
-0200030000 



- PROJECT COST 



DUMMY 

gROCURE PIPE 

PREFAB SECTIONS 
-DUMMY 



PR OJ ECT COMPL E T IO N 



PROJECT COMPLETION 
-45- 09042 



65 
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